home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q1100.dms
/
q1100.adf
/
TeleBASE
/
rexx
/
tb.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-04-10
|
300b
|
17 lines
/* Test Telebase */
call addlib 'rexxsupport.library', 0, -30, 0
/* getargs Make this work... eh? */
do forever
compress(FNAME)
len = length(argument)
res = compare(left(FNAME,len), left(argument, len) )
if res = 0 then TAG
NEXT
GetVar
if recordnum=numrecords then exit
END